home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / helpmaker twm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  177 lines
  1. 100 rem *******************************
  2. 110 rem *                             *
  3. 120 rem * ak-soft proudly presents :  *
  4. 130 rem *                             *
  5. 140 rem * >help-maker zu karteiverw.< *
  6. 150 rem *                             *
  7. 160 rem *       programmed with       *
  8. 170 rem *                             *
  9. 180 rem *         t w m  v1.0         *
  10. 190 rem *                             *
  11. 200 rem *    by a.knuepfer            *
  12. 210 rem *       auf dem knuell 18     *
  13. 220 rem *       2056 glinde           *
  14. 230 rem *       tel. 040/710 80 06    *
  15. 240 rem *                             *
  16. 250 rem *******************************
  17. 260 :
  18. 296 :
  19. 297 rem -------------------------------
  20. 298 rem  initialisierung
  21. 299 :
  22. 300 if peek(32168)<>162 or peek(38168)<>150 then load"twm v1.0",8,1
  23. 310 sys 32168
  24. 320 :
  25. 330 poke53280,0 :poke53281,0
  26. 395 :
  27. 396 :
  28. 397 rem ===============================
  29. 398 rem  bearbeitungsschleife
  30. 399 :
  31. 400 (NULL) 1,"dies programm erstellt die help-windows"
  32. 402 (NULL) 3,"fuer das hauptprogramm"
  33. 404 (NULL) 5,"'karteiverw. twm'."
  34. 406 (NULL) 8,10,"alles klar (j/n) ? ",,"jn",1,jn$ :if jn$<>"j" then stop
  35. 410 read d1$:if d1$="" then print"[147]fertig !" :end
  36. 415 read d0$,d2$
  37. 420 read z1,s1,z2,s2,typ,bsc,h$
  38. 430 read co,eo,d3
  39. 440 (NULL)1,z1,s1,z2,s2,typ,bsc,h$ :(NULL)1,co,eo,d3 :(NULL)1
  40. 450 :
  41. 460 read z :if z<0 then 500
  42. 470 read s,t$
  43. 480 if s>127 then (NULL) z,t$ :goto 460
  44. 490 (NULL) z,s,t$; :goto 460
  45. 495 :
  46. 500 (NULL) "@:"+d1$,d0$,d2$
  47. 510 (NULL) :(NULL)1
  48. 520 goto 410
  49. 989 :
  50. 990 :
  51. 991 rem ===============================
  52. 992 rem  daten : name, vorher, nachher
  53. 993 rem          z1/s1, z2/s2, typ, bsc
  54. 994 rem          header-text
  55. 995 rem          farbe, eor, 3d-farbe
  56. 996 :
  57. 997 rem ----- help-window bei
  58. 998 rem        winput-eingaben
  59. 999 :
  60. 1000 data "help winput",,
  61. 1010 data 10,0,24,39,1,0,"[197]ingabe",8,128,
  62. 1020 data 1,1,"[155] [195][210][211][210] [204][197][198][212], [210][201][199][200][212], [213][208], [196][207][215][206] [129] [194]ewegen"
  63. 1030 data 3,1,"[155] [201][206][211][212], [196][197][204] [129] : [197]infuegen, [204]oeschen
  64. 1040 [131] 5,1,"list left$(NULL)(NULL)val for      : atnnfang des asceldes"
  65. 1050 [131] 7,1,"list len(NULL)(NULL) for       : left$(NULL)(NULL)val und asceld loeschen"
  66. 1060 [131] 9,1,"list (NULL)val(NULL)(NULL)(NULL)(NULL) for    : valingabe beenden"
  67. 1070 [131] -1
  68. 1996 :
  69. 1997 [143] ----- help-window bei
  70. 1998 [143]        boxmenu-auswahl
  71. 1999 :
  72. 2000 [131] "help boxmenu",,
  73. 2010 [131] 5,4,19,36,1,0,"peekoxmenue - atnuswahl",8,128,
  74. 2020 [131] 1,1,"peekewegen (NULL)ie den (NULL)feil mittels"
  75. 2030 [131] 3,1,"list len(NULL)(NULL)(NULL) (NULL)valasc(NULL), (NULL)right$chr$left$(NULL), (NULL)(NULL), str$(NULL)(NULL)(NULL) for"
  76. 2040 [131] 5,1,"zu der gewuenschten ascunktion"
  77. 2050 [131] 7,1,"und betaetigen (NULL)ie dannlist"
  78. 2060 [131] 9,128," (NULL)val(NULL)(NULL)(NULL)(NULL) for."
  79. 2070 [131] -1
  80. 2996 :
  81. 2997 [143] ----- help-window zum
  82. 2998 [143]        haupt-boxmenu
  83. 2999 :
  84. 3000 [131] "help hauptmenu",,"help boxmenu"
  85. 3010 [131] 5,2,17,36,1,0,"left$auptmenue",8,128,
  86. 3020 [131] 1,1,"list val(NULL)str$val for (NULL)erlassen des (NULL)rogramms"
  87. 3030 [131] 3,1,"list (NULL)(NULL)atnstr$ for (NULL)aden einer neuen (NULL)artei"
  88. 3040 [131] 5,1,"list valstr$right$(NULL) for peekearbeiten der (NULL)artei"
  89. 3050 [131] 7,1,"list (NULL)atn(NULL)val for atnbspeichern der (NULL)artei"
  90. 3060 [131] -1
  91. 3996 :
  92. 3997 [143] ----- help-window zum
  93. 3998 [143]        edit-boxmenu
  94. 3999 :
  95. 4000 [131] "help editmenu",,"help boxmenu"
  96. 4010 [131] 4,0,21,39,1,0,"valstr$right$(NULL)-(NULL)enue",8,128,
  97. 4020 [131] 1,1,"list _ for (NULL)erlassen der valstr$right$(NULL)-(NULL)outine"
  98. 4030 [131] 3,1,"list atnval(NULL)str$val(NULL)(NULL) for atnendern eines str$atensatzes"
  99. 4040 [131] 5,1,"list (NULL)(NULL)val(NULL)lenleft$ for (NULL)oeschen eines str$atensatzes"
  100. 4050 [131] 7,1,"list << for list < for peeklaettern nach vorne"
  101. 4060 [131] 8,1,"list >> for list > for peeklaettern nach hinten"
  102. 4070 [131] 10,1,"list atn(NULL)asc(NULL)valchr$ for atnnfuegen eines str$atensatzes"
  103. 4080 [131] 12,1,"list (NULL)(NULL)(NULL)(NULL) for (NULL)artei alphabetisch sorieren"
  104. 4090 [131] -1
  105. 4995 :
  106. 4996 [143] ----- help-window zur
  107. 4997 [143]        definition der maske
  108. 4998 :
  109. 4999 [143] ----- seite 1
  110. 5000 [131] "help maskdef 1",,"help maskdef 2"
  111. 5010 [131] 6,1,24,38,1,0,"str$efinition der valright$(NULL)chr$atnpeekval(NULL)atn(NULL)(NULL)val 1",8,128,
  112. 5020 [131] 1,1,"list (NULL)egen (NULL)ie eine valingabemaske an ! for"
  113. 5030 [131] 3,1,"valine solche (NULL)aske besteht aus"
  114. 5040 [131] 5,1,"valingabefeldern und aus (NULL)exten,"
  115. 5050 [131] 7,1,"die die ascunktion der valingabefelder"
  116. 5060 [131] 9,1,"angeben."
  117. 5070 [131] 11,1,"peeksp.                              for"
  118. 5080 [131] 12,6," cont (NULL)ame  listtotototototototototototototototototototo for"
  119. 5090 [131] 13,6,"                             for"
  120. 5100 [131] -1
  121. 5198 :
  122. 5199 [143] ----- seite 2
  123. 5200 [131] "help maskdef 2","help maskdef 1","help maskdef 3"
  124. 5210 [131] 4,1,24,38,1,0,"str$efinition der valright$(NULL)chr$atnpeekval(NULL)atn(NULL)(NULL)val 2",8,128,
  125. 5220 [131] 1,1,"(NULL)um valrstellen der (NULL)aske stehen"
  126. 5230 [131] 3,1,"right$hnen alle (NULL)asten zur (NULL)erfuegung."
  127. 5240 [131] 5,1,"valin valingabefeld kennzeichnen (NULL)ie"
  128. 5250 [131] 7,1,"durch einen (NULL)trich aus"
  129. 5260 [131] 9,1,"list len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val-'@' = 'to' -(NULL)eichen for."
  130. 5270 [131] 11,1,"valin zusaetzliches peekenutzen von"
  131. 5280 [131] 13,1,"verschiedenen ascarben zur left$ervor-"
  132. 5290 [131] 15,1,"hebung ist empfehlenswert."
  133. 5300 [131] -1
  134. 5398 :
  135. 5399 [143] ----- seite 3
  136. 5400 [131] "help maskdef 3","help maskdef 2",
  137. 5410 [131] 10,1,24,38,1,0,"str$efinition der valright$(NULL)chr$atnpeekval(NULL)atn(NULL)(NULL)val 3",8,128,
  138. 5420 [131] 1,1,"(NULL)ie beenden die str$efinition mit"
  139. 5430 [131] 3,1,"der (NULL)aste list f3 for."
  140. 5440 [131] 5,1,"str$as (NULL)ystem speichert die erstellte"
  141. 5450 [131] 7,1,"(NULL)aske ab, das ascormat der (NULL)artei"
  142. 5460 [131] 9,1,"ist damit endgueltig festgelegt."
  143. 5470 [131] -1
  144. 5996 :
  145. 5997 [143] ----- help-window zur
  146. 5998 [143]        karteinamen-menuauswahl
  147. 5999 :
  148. 6000 [131] "help menu",,
  149. 6010 [131] 10,0,24,39,1,0,"(NULL)arteinamen - atnuswahl",8,128,
  150. 6020 [131] 1,1,"list len(NULL)(NULL), lenstr$(NULL)(NULL)(NULL) for peekewegen des atnuswahl-"
  151. 6030 [131] 2,14,"balkens nach oben"
  152. 6040 [131] 3,14,"und unten"
  153. 6050 [131] 5,1,"list left$(NULL)(NULL)val for       chr$anz nach oben"
  154. 6060 [131] 7,1,"list len(NULL)(NULL) for        atnn den atnnfang der (NULL)iste"
  155. 6070 [131] 9,1,"list (NULL)val(NULL)(NULL)(NULL)(NULL) for     atnuswahl beenden"
  156. 6080 [131] -1
  157. 6996 :
  158. 6997 [143] ----- help-window zur
  159. 6998 [143]        karteikarten-eingabe
  160. 6999 :
  161. 7000 [131] "help medit",,"help winput"
  162. 7010 [131] 4,2,24,37,1,0,"(NULL)arteikarten - valingabe",8,128,
  163. 7020 [131] 1,1,"ascuer die valingabe eines einzelnen"
  164. 7030 [131] 3,1,"asceldes siehe (NULL)eite 2."
  165. 7040 [131] 5,1,"(NULL)it list (NULL)val(NULL)(NULL)(NULL)(NULL) for gelangen (NULL)ie zum"
  166. 7050 [131] 7,1,"folgenden valingabefeld,"
  167. 7060 [131] 9,1,"mit list f3 for zum vorherigen."
  168. 7070 [131] 11,1,"peekeim letzen valingabefeld bewirkt"
  169. 7080 [131] 13,1,"list (NULL)val(NULL)(NULL)(NULL)(NULL) for ein peekeenden der"
  170. 7090 [131] 15,1,"(NULL)arteikarteneingabe."
  171. 7100 [131] -1
  172. 7996 :
  173. 7997 [143] ----- help-window zur
  174. 7998 [143]
  175. 7999 :
  176. 8000 [131] ""
  177.